Digital Pose Collection/Digital Pose Collection.iso/pc/modules/_sspose.exe/_sspose.DXR/00001.ls

Text File | 1996-06-13 | 904 b | 53 lines

global gh, gv, count, prevh, prevv

on ini
  puppetSprite(1, 1)
  set count to 0
  set flg to 1
  set gh to the stageRight - the stageLeft
  set gv to the stageBottom - the stageTop
  go(string(random(12)))
end

on nextpic
  set the locH of sprite 1 to gh / 2
  set the locV of sprite 1 to gv / 2
  set the castNum of sprite 1 to random(12) + 2
  puppetTransition(26, 4, 3, 1)
  updateStage()
end

on nextj
  set the castNum of sprite 1 to 2
  puppetTransition(26, 4, 3, 1)
  updateStage()
  go(string(random(12)))
end

on loops
  if count > 150 then
    set count to 0
    go(the frame + 1)
  else
    set count to count + 1
    go(the frame - 1)
  end if
end

on startMovie
  set prevh to mouseH()
  set prevv to mouseV()
end

on idle
  if (the mouseH <> prevh) or (the mouseV <> prevv) then
    dosaver()
  end if
  when mouseDown then doSaver
  when keyDown then doSaver
end

on dosaver
  quit()
end